Client端执行画面与措施代码: Imports System.NetImports System.Net.SocketsImports System.TextModule Module1Sub Main()Dim port As Integer = 12345Dim udpClient As New UdpClient()TryudpClient.Connect(localhost， 我按照UdpClient 种别内里的典型，写了Server/Client的措施，因为学校的信息网络课程要写一个TCP或UDP的联机措施， receiveDataDim sendBytes As [Byte]() = Encoding.UTF8.GetBytes(sendData)udpClient.Send(sendBytes， sendBytes.Length， RemoteIpEndPoint)Console.WriteLine(传回资料: sendData)Console.WriteLine()End WhileudpClient.Close()Catch e As ExceptionConsole.WriteLine(e.ToString())End TryEnd SubEnd Module 附件： ，Client传送名字， port)While (True)Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)Dim receiveData As String = Encoding.UTF8.GetString(receiveBytes)Console.WriteLine(收到资料: receiveData)Console.WriteLine(来自 RemoteIpEndPoint.Address.ToString() : RemoteIpEndPoint.Port)Dim sendData As String = 早上好， sendBytes.Length)Dim receiveBytes As [Byte]() = udpClient.Receive(udpClient.Client.LocalEndPoint)Dim returnData As String = Encoding.UTF8.GetString(receiveBytes)Console.WriteLine(returnData.ToString())udpClient.Close()Catch e As ExceptionConsole.WriteLine(e.ToString())End TryConsole.ReadKey()End SubEnd Module Server端执行画面与措施代码: Imports System.NetImports System.Net.SocketsImports System.TextModule Module1Sub Main()Dim port As Integer = 12345Dim udpClient As New UdpClient(port)TryDim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any，Server会回传「早上好。

名字」，成果很简朴，所以就找了网络上的典型来修改， port)Console.Write(请输入你的名字: )Dim inputString As String = Console.ReadLine()Dim sendBytes As [Byte]() = Encoding.UTF8.GetBytes(inputString)udpClient.Send(sendBytes，。